home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_cff.ps < prev    next >
Text File  |  1997-08-24  |  19KB  |  606 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Loader for CFF (compressed) fonts.
  19. % The following are not implemented yet:
  20. %    Deleted entries in the Name Index
  21. %    Embedded PostScript
  22. %    Multiple Master fonts
  23. %    CIDFonts
  24. %    Chameleon fonts
  25. %    Synthetic fonts
  26. % Also, Type 2 charstrings are converted into Type 1 fonts with
  27. % CharstringType = 2, which may or may not be supported.
  28.  
  29. 30 dict begin
  30.  
  31. % ---------------- Standard strings (actually names) ---------------- %
  32.  
  33. /StandardStrings mark
  34. % 0
  35.   /.notdef /space /exclam /quotedbl /numbersign
  36.   /dollar /percent /ampersand /quoteright /parenleft
  37.   /parenright /asterisk /plus /comma /hyphen
  38.   /period /slash /zero /one /two
  39.   /three /four /five /six /seven
  40.   /eight /nine /colon /semicolon /less
  41.   /equal /greater /question /at /A
  42.   /B /C /D /E /F
  43.   /G /H /I /J /K
  44.   /L /M /N /O /P
  45. % 50
  46.   /Q /R /S /T /U
  47.   /V /W /X /Y /Z
  48.   /bracketleft /backslash /bracketright /asciicircum /underscore
  49.   /quoteleft /a /b /c /d
  50.   /e /f /g /h /i
  51.   /j /k /l /m /n
  52.   /o /p /q /r /s
  53.   /t /u /v /w /x
  54.   /y /z /braceleft /bar /braceright
  55.   /asciitilde /exclamdown /cent /sterling /fraction
  56. % 100
  57.   /yen /florin /section /currency /quotesingle
  58.   /quotedblleft /guillemotleft /guilsinglleft /guilsinglright /fi
  59.   /fl /endash /dagger /daggerdbl /periodcentered
  60.   /paragraph /bullet /quotesinglbase /quotedblbase /quotedblright
  61.   /guillemotright /ellipsis /perthousand /questiondown /grave
  62.   /acute /circumflex /tilde /macron /breve
  63.   /dotaccent /dieresis /ring /cedilla /hungarumlaut
  64.   /ogonek /caron /emdash /AE /ordfeminine
  65.   /Lslash /Oslash /OE /ordmasculine /ae
  66.   /dotlessi /lslash /oslash /oe /germandbls
  67. % 150
  68.   /onesuperior /logicalnot /mu /trademark /Eth
  69.   /onehalf /plusminus /Thorn /onequarter /divide
  70.   /brokenbar /degree /thorn /threequarters /twosuperior
  71.   /registered /minus /eth /multiply /threesuperior
  72.   /copyright /Aacute /Acircumflex /Adieresis /Agrave
  73.   /Aring /Atilde /Ccedilla /Eacute /Ecircumflex
  74.   /Edieresis /Egrave /Iacute /Icircumflex /Idieresis
  75.   /Igrave /Ntilde /Oacute /Ocircumflex /Odieresis
  76.   /Ograve /Otilde /Scaron /Uacute /Ucircumflex
  77.   /Udieresis /Ugrave /Yacute /Ydieresis /Zcaron
  78. % 200
  79.   /aacute /acircumflex /adieresis /agrave /aring
  80.   /atilde /ccedilla /eacute /ecircumflex /edieresis
  81.   /egrave /iacute /icircumflex /idieresis /igrave
  82.   /ntilde /oacute /ocircumflex /odieresis /ograve
  83.   /otilde /scaron /uacute /ucircumflex /udieresis
  84.   /ugrave /yacute /ydieresis /zcaron /exclamsmall
  85.   /Hungarumlautsmall /dollaroldstyle /dollarsuperior /ampersandsmall /Acutesmall
  86.   /parenleftsuperior /parenrightsuperior /twodotenleader /onedotenleader /zerooldstyle
  87.   /oneoldstyle /twooldstyle /threeoldstyle /fouroldstyle /fiveoldstyle
  88.   /sixoldstyle /sevenoldstyle /eightoldstyle /nineoldstyle /commasuperior
  89. % 250
  90.   /threequartersemdash /periodsuperior /questionsmall /asuperior /bsuperior
  91.   /centsuperior /dsuperior /esuperior /isuperior /lsuperior
  92.   /msuperior /nsuperior /osuperior /rsuperior /ssuperior
  93.   /tsuperior /ff /ffi /ffl /parenleftinferior
  94.   /parenrightinferior /Circumflexsmall /hyphensuperior /Gravesmall /Asmall
  95.   /Bsmall /Csmall /Dsmall /Esmall /Fsmall
  96.   /Gsmall /Hsmall /Ismall /Jsmall /Ksmall
  97.   /Lsmall /Msmall /Nsmall /Osmall /Psmall
  98.   /Qsmall /Rsmall /Ssmall /Tsmall /Usmall
  99.   /Vsmall /Wsmall /Xsmall /Ysmall /Zsmall
  100. % 300
  101.   /colonmonetary /onefitted /rupiah /Tildesmall /exclamdownsmall
  102.   /centoldstyle /Lslashsmall /Scaronsmall /Zcaronsmall /Dieresissmall
  103.   /Brevesmall /Caronsmall /Dotaccentsmall /Macronsmall /figuredash
  104.   /hypheninferior /Ogoneksmall /Ringsmall /Cedillasmall /questiondownsmall
  105.   /oneeighth /threeeighths /fiveeighths /seveneighths /onethird
  106.   /twothirds /zerosuperior /foursuperior /fivesuperior /sixsuperior
  107.   /sevensuperior /eightsuperior /ninesuperior /zeroinferior /oneinferior
  108.   /twoinferior /threeinferior /fourinferior /fiveinferior /sixinferior
  109.   /seveninferior /eightinferior /nineinferior /centinferior /dollarinferior
  110.   /periodinferior /commainferior /Agravesmall /Aacutesmall /Acircumflexsmall
  111. % 350
  112.   /Atildesmall /Adieresissmall /Aringsmall /AEsmall /Ccedillasmall
  113.   /Egravesmall /Eacutesmall /Ecircumflexsmall /Edieresissmall /Igravesmall
  114.   /Iacutesmall /Icircumflexsmall /Idieresissmall /Ethsmall /Ntildesmall
  115.   /Ogravesmall /Oacutesmall /Ocircumflexsmall /Otildesmall /Odieresissmall
  116.   /OEsmall /Oslashsmall /Ugravesmall /Uacutesmall /Ucircumflexsmall
  117.   /Udieresissmall /Yacutesmall /Thornsmall /Ydieresissmall (001.000)
  118.   (001.001) (001.002) (001.003) /Black /Bold
  119.   /Book /Light /Medium /Regular /Roman
  120.   /Semibold
  121. .packtomark def
  122.  
  123. % ---------------- Standard encodings ---------------- %
  124.  
  125. /StandardEncodings [
  126.  
  127. % StandardEncoding
  128. mark
  129.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  130.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  131.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  132.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  133.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  134.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  135.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  136.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  137.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  138.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  139.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  140.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  141.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  142.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  143.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  144.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  145. .packtomark
  146.  
  147. % ExpertEncoding
  148. mark
  149.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  150.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  151.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  152.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  153.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  154.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  155.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  156.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  157.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  158.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  159.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  160.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  161.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  162.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  163.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  164.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  165. .packtomark
  166.  
  167. ] readonly def
  168.  
  169. % ---------------- Standard Charsets ---------------- %
  170.  
  171. % We include an explicit 0 at the beginning of each charset.
  172.  
  173. /StandardCharsets [
  174.  
  175. % ISOAdobe
  176. mark
  177.   0
  178.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  179.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  180.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  181.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  182.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  183.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
  184.   97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
  185.   113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128
  186.   129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
  187.   145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160
  188.   161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176
  189.   177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192
  190.   193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208
  191.   209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
  192.   225 226 227 228
  193. .packtomark
  194.  
  195. % Expert
  196. mark
  197.   0
  198.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  199.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  200.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  201.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  202.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  203.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  204.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  205.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  206.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  207.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  208.   374 375 376 377 378
  209. .packtomark
  210.  
  211. % ExpertSubset
  212. mark
  213.   0
  214.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  215.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  216.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  217.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  218.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  219.   341 342 343 344 345 346
  220. .packtomark
  221.  
  222. ] readonly def
  223.  
  224. % ---------------- Font loading ---------------- %
  225.  
  226. % ------ Utilities ------ %
  227.  
  228. /advance {    % <n> advance -
  229.   f cff eq { /pos pos 3 -1 roll add store } { pop } ifelse
  230. } def
  231. /next {        % - next <byte>
  232.   f read { 1 advance } if
  233. } def
  234. /nextstring {    % <length> nextstring <string>
  235.   dup 0 eq {
  236.     pop ()
  237.   } {
  238.     string f exch readstring pop dup length advance
  239.   } ifelse
  240. } def
  241. /card8        % - card8 <card8>
  242.  /next load
  243. def
  244. /card16 {    % - card16 <card16>
  245.   card8 8 bitshift card8 add
  246. } def
  247. /offset {    % <offsize> offset <offset>
  248.   0 exch { 8 bitshift next add } repeat
  249. } def
  250. /sid        % - <sid> sid
  251.   /card16 load
  252. def
  253. /Index {    % - Index <array>
  254.   mark card16 dup 0 ne {
  255.     1 exch next dup offset pop exch {
  256.       dup offset dup 4 -1 roll sub 3 1 roll exch
  257.     } repeat pop
  258.   } if pop .packtomark
  259.   [ exch { nextstring } forall ] readonly
  260. } def
  261. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  262.   {
  263.     f read not { 12 exit } if
  264.     1 advance
  265.     dup 12 eq { pop next 32 add exit } if
  266.     dup 28 lt { exit } if
  267.     dup 32 lt {
  268.       28 sub {
  269.     { card16 32768 xor 32768 sub }
  270.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  271.     { tokenreal }
  272.     { 31 exit }
  273.       } exch get exec
  274.     } {
  275.       dup 247 lt {
  276.     139 sub
  277.       } {
  278.     247 sub {
  279.       { next 108 add }
  280.       { next 364 add }
  281.       { next 620 add }
  282.       { next 876 add }
  283.       { next 108 add neg }
  284.       { next 364 add neg }
  285.       { next 620 add neg }
  286.       { next 876 add neg }
  287.       % 255 is deliberately omitted and will cause a rangecheck
  288.     } exch get exec
  289.       } ifelse
  290.     } ifelse
  291.   } loop
  292. } def
  293. /tokenbuf 100 string def
  294. /tokenput {    % <index> <char> tokenput <index+1>
  295.   tokenbuf 2 index 3 -1 roll put 1 add
  296. } def
  297. /tokenrealarray [
  298.  (0123456789.E) { } forall
  299.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  300.  null        % will give an error
  301.  (-) 0 get
  302.  { exit }
  303. ] readonly def
  304. /tokenreal {    % - tokenreal <float>
  305.   0 {
  306.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  307.         % We must leave the byte on the stack temporarily so that
  308.         % the exit will see a consistent stack state.
  309.     1 index 15 and tokenrealarray exch get exec tokenput exch pop
  310.   } loop
  311.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  312. } def
  313. /Dict {        % <opsdict> Dict -
  314.   /opdict exch store {
  315.     mark tokens opdict exch .knownget { exec } if cleartomark
  316.   } loop cleartomark
  317. } def
  318. /idstring {    % <sid> idstring <string|name>
  319.   dup 391 lt { StandardStrings } { 391 sub strings } ifelse exch get
  320. } def
  321. /idname {    % <sid> idname <name>
  322.   idstring dup type /nametype ne { cvn } if
  323. } def
  324.  
  325. % ------ Top dictionary ------ %
  326.  
  327. /offput {    % <offset> <proc> offput -
  328.   currentdict exch aload length 1 add packedarray cvx
  329.   offsets 3 1 roll put
  330. } def
  331. /queueput {    % <font> <proc> queueput -
  332.   16#7fffffff offsets { pop .min } forall
  333.   pos sub nextstring
  334.   3 1 roll aload length 2 add packedarray cvx
  335.   [ queued aload pop counttomark 2 add -1 roll ]
  336.   /queued exch store
  337. } def
  338. /xxput {    % <value> <key> <dict> xxput -
  339.   3 1 roll exch put
  340. } def
  341. /putfi {    % <value> <key> putfi -
  342.   FontInfo xxput
  343. } def
  344. /xdef {        % <value> <key> xdef -
  345.   exch def
  346. } def
  347. /topdictops mark
  348.   12 { exit }
  349.   0 { idstring /version putfi }
  350.   1 { idstring /Notice putfi }
  351.   32 { idstring /Copyright putfi }
  352.   2 { idstring /FullName putfi }
  353.   3 { idstring /FamilyName putfi }
  354.   4 { idstring /Weight putfi }
  355.   33 { 0 ne /isFixedPitch putfi }
  356.   34 { /ItalicAngle putfi }
  357.   35 { /UnderlinePosition putfi }
  358.   36 { /UnderlineThickness putfi }
  359.   37 { /PaintType xdef }
  360.   38 { /CharstringType xdef }
  361.   39 { counttomark array astore /FontMatrix xdef }
  362.   13 { /UniqueID xdef }
  363.   5 { counttomark array astore /FontBBox xdef }
  364.   40 { /StrokeWidth xdef }
  365.   14 { counttomark array astore /XUID xdef }
  366.   15 {
  367.     dup StandardCharsets length lt {
  368.       StandardCharsets exch get /charset xdef
  369.     } {
  370.       { queuecharset } offput
  371.     } ifelse
  372.   }
  373.   16 {
  374.     dup StandardEncodings length lt {
  375.       /Encoding xdef
  376.     } {
  377.       { queueEncoding } offput
  378.     } ifelse
  379.   }
  380.   17 { { readCharStrings } offput }
  381.   18 { exch /readPrivate cvx 2 packedarray offput }
  382. .dicttomark readonly def
  383.  
  384. /readCharStrings {    % <font> readCharStrings -
  385.   /CharStringArray Index put
  386. } def
  387.  
  388. % ------ Charsets and encodings ------ %
  389.  
  390. % Note: formats 1 and 2 can overflow the operand stack.
  391. % We'll fix this if it ever becomes necessary.
  392. /charsetformats [
  393. { [ 0 CharStringArray length 1 sub { sid } repeat ]
  394. }
  395. { [ 0 CharStringArray length 1 sub {
  396.     dup 0 eq { pop exit } if
  397.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  398.   } loop ]
  399. }
  400. { [ 0 CharStringArray length 1 sub {
  401.     dup 0 eq { pop exit } if
  402.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  403.   } loop ]
  404. }
  405. ] readonly def
  406. /queuecharset {        % <font> queuecharset -
  407.   { readcharset } queueput
  408. } def
  409. /readcharset {        % <data> <font> readcharset -
  410.   begin 0 () /SubFileDecode filter /f exch store
  411.   charsetformats next get exec /charset exch def end
  412. } def
  413.  
  414. /encodingformats [
  415. { 1 1 next { next exch Encoding 3 1 roll put } for
  416. }
  417. { 1 next {
  418.     next next 1 add {
  419.             % Stack: gid code
  420.       Encoding 1 index 3 index put
  421.       exch 1 add exch 1 add
  422.     } repeat pop
  423.   } repeat pop
  424. }
  425. ] readonly def
  426. /queueEncoding {    % <font> queueEncoding -
  427.   { readEncoding } queueput
  428. } def
  429. /readEncoding {        % <data> <font> readEncoding -
  430.   begin 0 () /SubFileDecode filter /f exch store
  431.   /Encoding [ 256 { /.notdef } repeat ] def
  432.   next encodingformats 1 index 127 and get exec
  433.   128 ge {
  434.             % Read supplementary encodings.
  435.     next {
  436.       Encoding next sid idname put
  437.     } repeat
  438.   } if end
  439. } def
  440.  
  441. % ------ Private dictionary ------ %
  442.  
  443. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  444.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  445.   counttomark array astore
  446. } def
  447.  
  448. /privatedictops mark
  449.   12 { exit }
  450.   6 { deltarray /BlueValues xdef }
  451.   7 { deltarray /OtherBlues xdef }
  452.   8 { deltarray /FamilyBlues xdef }
  453.   9 { deltarray /FamilyOtherBlues xdef }
  454.   41 { /BlueScale xdef }
  455.   42 { /BlueShift xdef }
  456.   43 { /BlueFuzz xdef }
  457.   10 { 1 array astore /StdHW xdef }
  458.   11 { 1 array astore /StdVW xdef }
  459.   44 { deltarray /StemSnapH xdef }
  460.   45 { deltarray /StemSnapV xdef }
  461.   46 { 0 ne /ForceBold xdef }
  462.   47 { /ForceBoldThreshold xdef }
  463.   48 { /lenIV xdef }
  464.   49 { /LanguageGroup xdef }
  465.   50 { /ExpansionFactor xdef }
  466.   51 { /initialRandomSeed xdef }
  467.   19 { { readSubrs } offput }
  468.   20 { /defaultWidthX xdef }
  469.   21 { /nominalWidthX xdef }
  470.     % Multiple Master fonts only
  471.   59 { /NDV xdef }
  472.   60 { /CDV xdef }
  473.   61 { /lenBuildCharArray xdef }
  474. .dicttomark readonly def
  475.  
  476. /readPrivate {        % <font> <size> readPrivate -
  477.   exch 1 index f exch () /SubFileDecode filter /f exch def
  478.   /Private get begin //privatedictops Dict end
  479.   /f cff def advance
  480. } def
  481.  
  482. % ------ Main program ------ %
  483.  
  484. % We need to pass the file as a parameter for the sake of the PDF
  485. % interpreter.
  486. /StartData {        % <resname> <nbytes> StartData -
  487.   currentfile exch () /SubFileDecode filter ReadData
  488. } def
  489. /ReadData {        % <resname> <file> ReadData -
  490.  
  491.     % Initialize.
  492.  
  493.   30 dict begin
  494.   /cff exch def
  495.   /pos 0 def
  496.   /resname exch cvlit def
  497.  
  498.     % Read the header.
  499.  
  500.   /f cff def
  501.   /vmajor next def
  502.   /vminor next def
  503.   /hdrsize next def
  504.   /aoffsize next def
  505.  
  506.     % Read the Indexes.
  507.  
  508.   /names Index def
  509.   /topdicts Index def
  510.   /strings Index def
  511.   /gsubrs Index def
  512.  
  513.     % Read the top Dicts.
  514.  
  515.   /offsets 50 dict def
  516.   /queued [] def
  517.   /opdict null def        % reserve a slot
  518.   /fonts [ topdicts {
  519.     0 () /SubFileDecode filter /f exch def
  520.     40 dict begin
  521.         % Preload defaults that differ from PostScript defaults.
  522.       /FontType 1 def
  523.       /CharstringType 2 def
  524.       /FontMatrix [0.001 0 0 0.001 0 0] def
  525.       /charset StandardCharsets 0 get def
  526.       /Encoding 0 def
  527.       /FontInfo 10 dict
  528.     dup /UnderlinePosition -100 put
  529.     dup /UnderlineThickness 50 put
  530.       def
  531.       /Private 20 dict
  532.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  533.       def
  534.       //topdictops Dict
  535.     currentdict end
  536.   } forall ] def
  537.  
  538.     % Read other tables with queued offsets.
  539.  
  540.   { /f cff def
  541.     offsets pos 2 copy .knownget not { pop pop exit } if
  542.     3 1 roll undef exec
  543.   } loop
  544.   offsets length 0 ne {
  545.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  546.     (Current position is ) print pos ==
  547.     flush stop
  548.   } if
  549.  
  550.     % Process out-of-order tables.
  551.  
  552.   queued { exec } forall
  553.  
  554.     % Update Encoding and CharStrings.
  555.  
  556.   fonts {
  557.     begin
  558.         % Construct the real Encoding.
  559.         % The value of Encoding is either a number, for predefined
  560.         % encodings, or an array of mixed GIDs and names.
  561.       /Encoding mark Encoding dup type /integertype eq {
  562.     StandardEncodings exch get { idname } forall
  563.       } {
  564.     {
  565.       dup type /integertype eq { charset exch get idname } if
  566.         } forall
  567.       } ifelse .packtomark def
  568.         % Construct the CharStrings.
  569.       /CharStrings charset length dict def
  570.       0 1 charset length 1 sub {
  571.     dup CharStringArray exch get
  572.     exch charset exch get idstring
  573.     CharStrings xxput
  574.       } for
  575.         % Remove unwanted entries.
  576.       currentdict /charset undef
  577.       currentdict /CharSetArray undef
  578.     end
  579.   } forall
  580.  
  581.     % Wrap up.
  582.  
  583.   resname mark 0 1 fonts length 1 sub {
  584.     dup names exch get exch fonts exch get
  585.     dup /FontName 3 index put
  586.     1 index exch definefont
  587.   } for .dicttomark
  588.   end        % temporary dict
  589.   end        % FontSetInit ProcSet
  590.   /FontSet defineresource pop
  591.  
  592. } bind def
  593.  
  594. % ---------------- Resource category definition ---------------- %
  595.  
  596. currentdict end readonly
  597.  
  598. languagelevel exch 2 .setlanguagelevel
  599.  
  600. /FontSet /Generic /Category findresource dup length dict .copydict
  601. /Category defineresource pop
  602.  
  603. /FontSetInit exch /ProcSet defineresource pop
  604.  
  605. .setlanguagelevel
  606.